' BASIC Anywhere Machine program by Charlie Veniot
' mod of rel6.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.21 at 18.24
'"The Lens" by Relsoft
'Relsoft.ath.cx
1 SCREEN _newimage(416, 200, 13)
2 IF xx% = 0 THEN xx% = 3 + INT(RND * 260) ELSE IF xv% = 0 THEN xv% = -1 + INT(RND * 2)
3 IF (xx% <= 1 AND xv% < 0) OR (xx% >= 319 AND xv% > 0) THEN xv% = -xv% ELSE xx% = xx% + xv%
4 yy% = 100 - ABS(SIN(((xx% * 3) * 3.141593 / 180))) * 160
5 FOR yt% = 0 TO 99
6 FOR xt% = 0 TO 99
7 IF (((xt% - 50) * (xt% - 50)) + ((yt% - 50) * (yt% - 50))) < (2500 - 900) THEN PSET (xx% + xt%, yy% + yt%), int( (((((((20 - SQR(2500 - (((xt% - 50) * (xt% - 50)) + ((yt% - 50) * (yt% - 50)))))) * ((xt% - 50) / SQR(2500 - (((xt% - 50) * (xt% - 50)) + ( (yt% - 50) * (yt% - 50))))))) + xt% + xx%) AND 15) OR (((((20 - SQR(2500 - (((xt% - 50) * (xt% - 50)) + ((yt% - 50) * (yt% - 50)))))) * ((yt% - 50) / SQR(2500 - (((xt% - 50) * (xt% - 50)) + ((yt% - 50) * (yt% - 50)))))) + yt% + yy%) AND 15)) + 16 ) ELSE PSET (xx% + xt%, yy% + yt%), 0
8 NEXT xt%, yt%
_delay 0.0125
9 IF INKEY$ = "" THEN 2